home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / prtsck.asm < prev    next >
Assembly Source File  |  1995-04-22  |  3KB  |  146 lines
  1. 01* PRINT SCREEN KEY 
  2. 02* ORIGINAL CODE FROM COMPUTE! 
  3. 03* APRIL'86 BY RALPH JOHNSON 
  4. 04* MODIFIED TO BE CALLED WITH CTRL-4 
  5. 05* BUZZ HAMILTON [73557,1031] JUNE'86 
  6. 06* 
  7. 07* WILL DUMP GRAPHIC 0 SCREEN TO 
  8. 08* PRINTER WHEN CTRL-4 IS HIT 
  9. 10 ICCOM  = $342 
  10. 20 ICAX1  = $34A 
  11. 30 ICBAL  = $344 
  12. 40 ICBAH  = $345 
  13. 50 ICBLL  = $348 
  14. 60 ICBLH  = $349 
  15. 70 CIOV   = $E456 
  16. 74 DOSINI = $C 
  17. 80 SAVMSC = $58 
  18. 90 SPBYT1 = $CB 
  19. 0100 SPBYT2 = $CC 
  20. 0110 VKEYBD = $208 
  21. 0120 CDTMA2 = $228 
  22. 0130 RUNAD  = $2E0 
  23. 0135 PRNBUF = $3C0 
  24. 0140 SETVBV = $E45C 
  25. 0150 KBCODE = $D209 
  26. 0160 CTRL4  = $98 
  27. 0170   *=$0600 
  28. 0177 RESET 
  29. 0178   JSR $FFFF 
  30. 0190   SEI 
  31. 0200   LDA VKEYBD 
  32. 0210   CMP #NVKYBD&255 
  33. 0220   BNE STORE 
  34. 0230   LDA VKEYBD+1 
  35. 0240   CMP #NVKYBD/256 
  36. 0250   BEQ EXIT 
  37. 0260 STORE 
  38. 0270   LDA VKEYBD 
  39. 0280   STA JUMP+1 
  40. 0290   LDA VKEYBD+1 
  41. 0300   STA JUMP+2 
  42. 0310   LDA #NVKYBD&255 
  43. 0320   STA VKEYBD 
  44. 0330   LDA #NVKYBD/256 
  45. 0340   STA VKEYBD+1 
  46. 0350 EXIT 
  47. 0360   CLI 
  48. 0370   RTS 
  49. 0380 NVKYBD 
  50. 0390   LDA KBCODE 
  51. 0400   CMP #CTRL4 
  52. 0401   BNE JUMP 
  53. 0404   LDA #DOPRT&255 
  54. 0407   STA CDTMA2 
  55. 0410   LDA #DOPRT/256 
  56. 0413   STA CDTMA2+1 
  57. 0416   LDA #2 
  58. 0419   LDY #30 
  59. 0422   LDX #0 
  60. 0425   JSR SETVBV 
  61. 0426   PLA 
  62. 0428   RTI 
  63. 0520 JUMP 
  64. 0530   JMP JUMP 
  65. 0540 DOPRT 
  66. 0550   LDX #$50 
  67. 0560   LDA #$03 
  68. 0570   STA ICCOM,X 
  69. 0580   LDA #$08 
  70. 0590   STA ICAX1,X 
  71. 0600   LDA #DEV&255 
  72. 0610   STA ICBAL,X 
  73. 0620   LDA #DEV/256 
  74. 0630   STA ICBAH,X 
  75. 0640   LDA #$00 
  76. 0650   STA LCNT 
  77. 0660   STA ICBLH,X 
  78. 0670   LDA #$FF 
  79. 0680   STA ICBLL,X 
  80. 0690   JSR CIOV 
  81. 0700   LDA SAVMSC 
  82. 0710   STA SPBYT1 
  83. 0720   LDA SAVMSC+1 
  84. 0730   STA SPBYT2 
  85. 0740   LDX #$00 
  86. 0750 LOOP 
  87. 0760   LDY #$00 
  88. 0770   CLC   
  89. 0780   LDA ($CB),Y 
  90. 0790   ADC #$20 
  91. 0800   STA PRNBUF,X 
  92. 0810   INX 
  93. 0820   CLC 
  94. 0830   LDA SPBYT1 
  95. 0840   ADC #$01 
  96. 0850   STA SPBYT1 
  97. 0860   LDA SPBYT2 
  98. 0870   ADC #$00 
  99. 0880   STA SPBYT2 
  100. 0890   LDA LCNT 
  101. 0900   CMP #$18 
  102. 0910   BEQ CLOSE 
  103. 0920   CPX #$28 
  104. 0930   BNE LOOP 
  105. 0940 PRINT 
  106. 0950   LDA #$9B 
  107. 0960   STA PRNBUF,X 
  108. 0970   INC LCNT 
  109. 0980   LDX #$50 
  110. 0990   LDA #$09 
  111. 1000   STA ICCOM,X 
  112. 1010   LDA #PRNBUF&255 
  113. 1020   STA ICBAL,X 
  114. 1030   LDA #PRNBUF/256 
  115. 1040   STA ICBAH,X 
  116. 1050   LDA #$00 
  117. 1060   STA ICBLH,X 
  118. 1070   LDA #$FF 
  119. 1080   STA ICBLL,X 
  120. 1090   JSR CIOV 
  121. 1100   LDX #$00 
  122. 1110   CPX #$00 
  123. 1120   BEQ LOOP 
  124. 1130 CLOSE 
  125. 1140   LDX #$50 
  126. 1150   LDA #$0C 
  127. 1160   STA ICCOM,X 
  128. 1170   JSR CIOV 
  129. 1180   RTS 
  130. 1190 LCNT 
  131. 1200   .BYTE 0 
  132. 1210 DEV 
  133. 1220   .BYTE "P:" 
  134. 1221 BEGIN 
  135. 1222   LDA DOSINI 
  136. 1223   STA RESET+1 
  137. 1224   LDA DOSINI+1 
  138. 1225   STA RESET+2 
  139. 1226   LDA #RESET&255 
  140. 1227   STA DOSINI 
  141. 1228   LDA #RESET/256 
  142. 1229   STA DOSINI+1 
  143. 1230   JMP RESET+3 
  144. 1260   *=RUNAD 
  145. 1270   .WORD BEGIN 
  146. {{{{{